home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / bipl.zip / IDOL.ZIP / AUTOPARN.IOL < prev    next >
Text File  |  1991-12-30  |  277b  |  16 lines
  1. #
  2. # Here is a sample test of automatic parenthesizing
  3. #
  4. class autotest(public yo)
  5.   method foo(x)
  6.     return x
  7.   end
  8. initially
  9.   self.yo := "yo, bro"
  10. end
  11.  
  12. procedure main()
  13.   x := autotest()
  14.   write(x$foo(x$yo)) # yo almost becomes a data item, notation-wise
  15. end
  16.